home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 38
/
64er_Magazin_Sonderheft_38_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64
/
lat. deklination
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
18KB
|
662 lines
10 poke53281,6:poke53280,14:print"[154]"
20 open 2,0,2:ch$=chr$(128+13):printchr$(142)
30 l1$="[154]":l2$="":l3$="[158]":q$=" ":qu$=" ":fr$="f"
40 dima$(120,3)
50 print"[147] lateinische deklination"
60 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
70 print" winfried flikschuh"
80 print" autor und albertstr.5"
90 print" copyright(1986): 5430 montabaur"
100 print" tel.:02602-2533"
110 print"[158] bitte warten!"
120 n=111
130 for k=1ton
140 read a$(k,o),a$(k,1),a$(k,2),a$(k,3)
150 next
160 printchr$(14):print"[154][145][145][196]ieses [208]rogramm ist dem [208]rogrammpaket"
170 print"[207][205][206][201][198][204][197][216] entnommen, das ausser der [196]ek-"
180 print"lination aehnliche [213]ebungen zur [203]onju-"
190 print"gation, zum [208]ronomen und zu den [211]tamm-"
200 print"formen enthaelt. [193]usserdem erlaubt"
210 print"[207][205][206][201][198][204][197][216] die [193]nlage eigener [196]ateien und"
220 print"kann jedes beliebige [211]ubstantiv, [193]djek-"
230 print"tiv oder [214]erb beugen. [197]s ist zum [208]reis"
240 print"von [196][205] 36,- (+ [196][205] 3.- [214]ersandkosten)"
250 print"beim [214]erfasser erhaeltlich([211]tand 1988)."
270 gosub6610
280 m$="[147][197][210][203][204][193][197][210][213][206][199][197][206]":printm$
290 printchr$(14);" [196]ieses [208]rogramm dient zur [197]inuebung der";
300 print" lateinischen [196]eklinationsformen und"
310 print" enthaelt [211]ubstantive der"
320 printl2$;" [193]-,[207]-,[197]-,[213]-,[201]-";"[154]und"
330 print"kons.";"[154][196]ekl.(incl.[205]ischform)"
340 print" [194]ei der [198]ormenbestimmung ist auf kor-"
350 print" rekte [193]nwendung der [193]bkuerzungen zu "
360 print" achten, und zwar:"
370 print" [199][197][206].[211].[196][193][212].[211].[193][203][203].[211].[193][194][204].[211]."
380 print"[206][207][205].[208][204].[199][197][206].[208][204].[196][193][212].[208][204].[193][203][203].[208][204].[193][194][204].[208][204]."
390 print"[154][196]a es schwerer ist,einem [195]omputer eini-";
400 print" ge [199]rundkenntnisse im [204]ateinischen zu"
410 print" vermitteln als einem [211]chueler,bildet"
420 print" oder verlangt das [208]rogramm auch [198]ormen"
430 print" wie 'fuga firma'-[214]erzeihung!"
440 print"[194][201][212][212][197] [212][193][211][212][197][160][196][210][213][197][195][203][197][206]"
450 poke198,0:wait198,1:geta$
460 print"[147]":p=0:q$=" ":mm$=""
470 poke53280,14:print"[154]"
480 printchr$(142);" lateinische deklination"
490 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
500 print" hauptmenue :"
510 print" [163][163][163][163][163][163][163][163][163][163][163][163]"
520 print"[160][160][160] [1] deklinationsuebung"
530 print" [2] formen bilden"
540 print" [3] formen bestimmen"
550 print"[160][160][160] [4] formen bilden lassen"
560 print" [5] deklinationstabellen"
570 print" [6] ende"
580 poke198,0:wait198,1:getef$:ef=val(ef$)
590 ifef>0andef<7then on ef goto 610,1190,1430,2170,4440,5310
600 goto580
610 poke53280,13
620 qa$="-":o$="":b$="":po$=chr$(16):as$="":m$="[147][154] deklinationsuebung[146]"
630 printm$:print"uebung (u) oder tabelle (t) ";:input e3$
640 input "mit adjektiv (j/n)";i1$
650 print "gewuenschtes substantiv"
660 print"[158] ";:input#2,s$:printch$
670 if i1$<>"j"then 700
680 print "[154]gewuenschtes adjektiv (mask.s.)"
690 print"[158] ";:input#2,aj$:printch$
700 printl1$:gosub 4790
710 ifs$="n"then460
720 gosub 4200
730 if as$="p"thenns$=a$(x,0)
740 printm$:print"";ns$;"[146]":print
750 if e3$="t"thenprint" bitte etwas warten"
760 for y=0to9
770 if y=0thensa$=ns$:c$="nom.s.":c0$=c$:goto900
780 if as$="s"and y>4then980
790 gosub2430
800 if as$="p"andy<5thensa$="":goto970
810 if y=1then c1$=c$:d1$=sa$:goto900
820 if y=2then c2$=c$:d2$=sa$:goto900
830 if y=3then c3$=c$:d3$=sa$:goto900
840 if y=4then c4$=c$:d4$=sa$:goto900
850 if y=5then c5$=c$:d5$=sa$:goto900
860 if y=6then c6$=c$:d6$=sa$:goto900
870 if y=7then c7$=c$:d7$=sa$:goto900
880 if y=8then c8$=c$:d8$=sa$:goto900
890 if y=9then c9$=c$:d9$=sa$
900 if e3$="t"oras$="p"andy<5then 970
910 ify=3anda$(x,3)="n"thenprint
920 printl2$;q$;c$;":";tab(15)l3$;:input#2,dc$:printch$;l1$;
930 if dc$=sa$then970
940 print" hilfe:";qa$+b$;qa$+o$;tab(15)l3$;:input#2,dc$:printch$;l1$
950 if dc$=sa$thenprint"[145][145][145]":goto970
960 print" [145][145]die loesung: ";l2$;tab(15)sa$;l1$:print"[145][145]"
970 nexty
980 print"leertaste druecken"
990 get a5$:ifa5$=""then990
1000 if as$="p"then print m$:goto1040
1010 print m$:print"";ns$;"[146]"
1020 printqu$;c0$;": ";ns$:printqu$;c1$;": ";d1$:printqu$;c2$;": "d2$
1030 printqu$;c3$;": ";d3$:printqu$;c4$;": ";d4$:ifas$="s"then1060
1040 printqu$;c5$;": ";d5$:printqu$;c6$;": ";d6$
1050 printqu$;c7$;": ";d7$:printqu$;c8$;": ";d8$:printqu$;c9$;": ";d9$
1060 input"ausdrucken (j/n)";e4$:if e4$<>"j"then 1170
1070 input"drucker betriebsbereit (j/n)";e5$:ife5$<>"j"then1060
1080 e4$="":e5$="":open 7,4,0
1090 if as$="p"then d1$="":d2$="":d3$="":d4$=""
1100 print#7,chr$(14);po$;"22";ns$;chr$(15)
1110 print#7,po$;"05";c0$;": ";ns$;po$;"40";c5$;": ";d5$
1120 print#7,po$;"05";c1$;": ";d1$;po$;"40";c6$;": ";d6$
1130 print#7,po$;"05";c2$;": ";d2$;po$;"40";c7$;": ";d7$
1140 print#7,po$;"05";c3$;": ";d3$;po$;"40";c8$;": ";d8$
1150 print#7,po$;"05";c4$;": ";d4$;po$;"40";c9$;": ";d9$
1160 close7
1170 gosub 5030
1180 goto620
1190 m$="[154][147] formen bilden[146]":printm$:poke53280,11
1200 gosub4350
1210 p=0:q$=" ":sa$="":printm$
1220 gosub5070:input " wieviele aufgaben";h
1230 printm$
1240 for i=1toh
1250 gosub4050
1260 print"";ns$
1270 gosub2430
1280 if c$="akk.s" and a$(x,3)="n"then sa$=ns$
1290 ifmm$="m"thenprint" ";c$:gosub5100:goto1380
1300 print"";c$;": [158]";:input#2,d$
1310 printch$
1320 if d$=sa$ then1370
1330 ifpp>9then1350
1340 r=r+1:v$(r)=c$:r$(r)=sa$:pp=pp+1
1350 print"leider falsch! richtig ist:"
1360 print"";sa$;"[146]":goto1380
1370 gosub5220:print"richtig!":p=p+1
1380 gosub 5460
1390 printm$
1400 nexti
1410 gosub4920
1420 goto1210
1430 m$="[154][147] formen bestimmen[146]":printm$:poke53280,15
1440 gosub4350
1450 p=0:sa$="":printm$
1460 gosub5070:input " wieviele aufgaben";h
1470 print m$
1480 for i=1 to h
1490 sa$="":ns$="":cd$="":f$=""
1500 gosub4050
1510 gosub2430
1520 print"";sa$:ifmm$="m"thengosub5100:goto2120
1530 print" nominativ (s.): [158]";:input#2,g$:printch$
1540 if g$<>ns$then1960
1550 print" kasus: [158]";:input#2,f$:printch$
1560 if f$="dat.pl."orf$="abl.pl."then1820
1570 if a$(x,3)="n"then1640
1580 if ap$>"b"and ad$<>"b"then1640
1590 ifap$="a"anda$(x,3)="m"andad$="b"then1790
1600 ifap$="b"anda$(x,3)="f"andad$="b"then1790
1610 ifap$="h"anda$(x,3)="m"andi1$="j"then1800
1620 if ap$="b"then 1720
1630 goto 1680
1640 if f$="nom.pl."orf$="akk.pl."then1850
1650 if ap$="c"then1720
1660 if as$="i"anda$(z,2)="d"then1760
1670 if as$="i"andi1$<>"j"then1760
1680 if ad$="d"orak$="p"then1800
1690 if ap$="a"andf$="nom.pl."andf$<>c$ then f$="dat.s.":goto1740
1700 if ap$="a"or ap$="h"then1740
1710 goto1800
1720 if a$(z,2)="b"ora$(z,2)="d"or i1$<>"j"then1760
1730 goto1800
1740 if f$="gen.s."orf$="dat.s."then1830
1750 goto 1800
1760 iff$="abl.s."orf$="dat.s."then1840
1770 if ap$="b"and i1$<>"j"then1790
1780 if ap$="c"or a$(z,2)<>"b"then1800
1790 if f$="gen.s."orf$="nom.pl."then1860
1800 if f$=c$ then1950
1810 goto1960
1820 ca$="dat.pl.":cb$="abl.pl.":goto1870
1830 ca$="gen.s.":cb$="dat.s.":goto1870
1840 ca$="dat.s.":cb$="abl.s.":goto1870
1850 ca$="nom.pl.":cb$="akk.pl.":goto1870
1860 ca$="nom.pl.":cb$="gen.s.":goto1870
1870 print" oder: [158]";:input#2,fa$:printch$
1880 ifap$="a"andf$<>"gen.s."andfa$="nom.pl."thenfa$="gen.s."
1890 ifap$="a"andf$="gen.s."andfa$="nom.pl."thenfa$="dat.s."
1900 if fa$= ca$ or fa$=cb$ then 2000
1910 ifca$<>c$thencd$=ca$
1920 ifcb$<>c$thencd$=cb$
1930 goto 2090
1940 print
1950 gosub5220:print"richtig!":p=p+1:goto2120
1960 ifpp>9 then1980
1970 r=r+1:r$(r)=sa$:v$(r)=c$:pp=pp+1
1980 print"[154]leider falsch!richtig ist:"
1990 print"nom.s.:";ns$;"[146]kasus:";c$:print"":goto 2120
2000 if ca$<>c$ then cd$=ca$
2010 if cb$<>c$ then cd$=cb$
2020 if f$=c$ then 2040
2030 if f$=cd$ then 2060
2040 if fa$=cd$ then 2110
2050 goto2070
2060 if fa$=c$ then 2110
2070 ifpp>10 then2090
2080 r=r+1:r$(r)=sa$:v$(r)=c$+q$+cd$:pp=pp+1
2090 print"[154]leider falsch;richtig ist:"
2100 print"[154] nom.s.: ";ns$:print"[154][146]kasus: ";c$;"[154] und: ";cd$:goto2120
2110 gosub5220:print"richtig!":p=p+1
2120 gosub 5460
2130 printm$
2140 nexti
2150 gosub 4920
2160 goto 1450
2170 m$="[147][154] formen bilden lassen[146]":printm$:i1$="":poke53280,0
2180 print "gewuenschtes substantiv [158]";:input#2,s$:printch$
2190 gosub 4790
2200 printm$:print" ";s$
2210 print"[154]gewuenschter kasus (z.b.:dat.s.)"
2220 print" [158]";:input#2,y$:printch$
2230 ify$="gen.s."theny=1:goto2330
2240 ify$="dat.s."theny=2:goto2330
2250 ify$="akk.s."theny=3:goto2330
2260 ify$="abl.s."theny=4:goto2330
2270 ify$="nom.pl."theny=5:goto2330
2280 ify$="gen.pl."theny=6:goto2330
2290 ify$="dat.pl."theny=7:goto2330
2300 ify$="akk.pl."theny=8:goto2330
2310 ify$="abl.pl."theny=9:goto2330
2320 print" [154]eingabe von falschem format":goto 2210
2330 ify<5andas$="p"theny=y+5
2340 gosub 2430
2350 print m$
2360 print" die formenbestimmung lautet:"
2370 print" ";c$;"[154] von ";a$(x,0);":"
2380 if y=3 and a$(x,3)="n"then2400
2390 print"";a$(x,1)+b$:goto2410
2400 print"";a$(x,0)
2410 gosub 5030
2420 goto2170
2430 ap$=left$(a$(x,2),1):as$=right$(a$(x,2),1)
2440 if y=1 then 2530
2450 if y=2 then 2600
2460 if y=3 then 2680
2470 if y=4 then 2740
2480 if y=5 then 2810
2490 if y=6 then 2890
2500 if y=7 then 2970
2510 if y=8 then 3040
2520 if y=9 then 3120
2530 c$="gen.s."
2540 if ap$="a" then3140
2550 if ap$="b" then3190
2560 if ap$="c" then 3190
2570 if ap$="g" then3250
2580 if ap$="h" then3300
2590 b$="is":goto3350
2600 c$="dat.s."
2610 if ap$="a" then 3140
2620 if ap$="d" then 3190
2630 if ap$="e" then 3190
2640 if ap$="f" then 3190
2650 if ap$="g" then 3270
2660 if ap$="h" then 3300
2670 b$="o":goto3350
2680 c$="akk.s."
2690 if a$(x,3)="n" then sa$=ns$:return
2700 if ap$="a" then3150
2710 if as$="i" then 3340
2720 if ap$="g"or ap$="b" then 3200
2730 b$="em":goto3350
2740 c$="abl.s."
2750 if ap$="a" then 3160
2760 if as$="i" then 3190
2770 if ap$="e"orap$="d"then 3220
2780 if ap$="f"orap$="h"then 3220
2790 if ap$="g" then 3280
2800 b$="o":goto3350
2810 c$="nom.pl."
2820 if as$="i"anda$(x,3)="n"then 3330
2830 if ap$="a" then 3140
2840 if ap$="b" then 3190
2850 if ap$="e"or ap$="c" then 3160
2860 if ap$="g"anda$(x,3)="n"then3260
2870 if ap$="g" then 3250
2880 b$="es":goto3350
2890 c$="gen.pl."
2900 if ap$="a" then 3170
2910 if ap$="d" then 3200
2920 if ap$="e" then 3200
2930 if ap$="f" then 3240
2940 if ap$="g" then 3290
2950 if ap$="h" then 3310
2960 b$="orum":goto3350
2970 c$="dat.pl."
2980 if ap$="d" then 3230
2990 if ap$="e" then 3230
3000 if ap$="f" then 3230
3010 if ap$="g" then 3230
3020 if ap$="h" then 3320
3030 b$="is":goto3350
3040 c$="akk.pl."
3050 if as$="i"anda$(x,3)="n"then 3330
3060 if ap$="a" then 3180
3070 if ap$="b" then 3210
3080 if ap$="e" orap$="c"then 3160
3090 if ap$="g"anda$(x,3)="n"then3260
3100 if ap$="g" then 3250
3110 b$="es":goto3350
3120 c$="abl.pl."
3130 goto 2980
3140 b$="ae":goto3350
3150 b$="am":goto3350
3160 b$="a":goto3350
3170 b$="arum":goto3350
3180 b$="as":goto3350
3190 b$="i":goto3350
3200 b$="um":goto3350
3210 b$="os":goto 3350
3220 b$="e":goto3350
3230 b$="ibus":goto3350
3240 b$="ium":goto3350
3250 b$="us":goto3350
3260 b$="ua":goto3350
3270 b$="ui":goto3350
3280 b$="u":goto3350
3290 b$="uum":goto3350
3300 b$="ei":goto 3350
3310 b$="erum":goto3350
3320 b$="ebus":goto3350
3330 b$="ia":goto3350
3340 b$="im":goto3350
3350 if i1$="j"then3380
3360 a$(z,1)="":a$(z,2)="":ad$="":ak$=""
3370 sa$=a$(x,1)+b$:print:return
3380 if ap$="b"anda$(z,2)="b"anda$(x,3)="m"theno$=b$:goto4020
3390 if ap$="a"anda$(z,2)="b"anda$(x,3)="f"theno$=b$:goto4020
3400 if ap$="c"anda$(z,2)="b"theno$=b$:goto4020
3410 ad$=left$(a$(z,2),1):ak$=right$(a$(z,2),1)
3420 if y=1andad$="d"then3870
3430 if y=1andak$="p"then3850
3440 if y=2andad$="d"then3820
3450 if y=2andak$="p"then3820
3460 if y=6andad$="d"then3900
3470 if y=4andad$="d"then3810
3480 if y=7andad$="d"then3920
3490 if y=9andad$="d"then3920
3500 if y=3andad$="d"then3880
3510 if y=5andad$="d"then3640
3520 if y=8andad$="d"then3640
3530 if y=7 andad$="b"then3870
3540 if y=9 andad$="b"then3870
3550 if y=1 andad$="b"then3660
3560 if y=2 andad$="b"then3670
3570 if y=3 andad$="b"then3690
3580 if y=4 andad$="b"then3710
3590 if y=6 andad$="b"then3730
3600 if y=5 andad$="b"then3960
3610 if y=8 andad$="b"then3990
3620 if a$(x,3)="m"ora$(x,3)="f"then3880
3630 if a$(x,3)="n"theno$=a$(z,0):goto4020
3640 if a$(x,3)="m"ora$(x,3)="f"then3890
3650 if a$(x,3)="n"then3930
3660 if a$(x,3)="m"ora$(x,3)="n"then3810
3670 if a$(x,3)="m"ora$(x,3)="n"then3950
3680 if a$(x,3)="f"then3760
3690 if a$(x,3)="m"ora$(x,3)="n"then3830
3700 if a$(x,3)="f"then3770
3710 if a$(x,3)="m"ora$(x,3)="n"then3950
3720 if a$(x,3)="f"then3780
3730 if a$(x,3)="m"ora$(x,3)="n"then3860
3740 if a$(x,3)="f"then3790
3750 goto3960
3760 o$="ae":goto4020
3770 o$="am":goto4020
3780 o$="a":goto4020
3790 o$="arum":goto4020
3800 o$="as":goto4020
3810 ify=4andak$="k"theno$="e":goto4020
3820 o$="i":goto4020
3830 o$="um":goto4020
3840 o$="os":goto4020
3850 o$="ius":goto4020
3860 o$="orum":goto4020
3870 o$="is":goto4020
3880 o$="em":goto4020
3890 o$="es":goto4020
3900 ifak$="k"theno$="um":goto4020
3910 o$="ium":goto4020
3920 o$="ibus":goto4020
3930 ifak$="k"theno$="a":goto4020
3940 o$="ia":goto4020
3950 o$="o":goto4020
3960 if a$(x,3)="f"then3760
3970 if a$(x,3)="m"then3810
3980 if a$(x,3)="n"then3780
3990 if a$(x,3)="n"then3780
4000 if a$(x,3)="m"then3840
4010 if a$(x,3)="f"then3800
4020 print
4030 sa$=a$(x,1)+b$+q$+a$(z,1)+o$
4040 return
4050 if fr$="f"then4090
4060 x=rnd(0)*az
4070 if i1$<>"j"then4160
4080 z=rnd(0)*bz+az:goto4160
4090 if be=1thenx=rnd(0)*85+1:goto4130
4100 if be=2thenx=rnd(0)*59+1:goto4130
4110 if be=3thenx=rnd(0)*42+1:goto4130
4120 if be=4thenx=rnd(0)*21+1
4130 if i1$<>"j"then 4160
4140 if be>2then z=rnd(0)*15+86:goto4160
4150 z=rnd(0)*26+86
4160 ap$=left$(a$(x,2),1):as$=right$(a$(x,2),1)
4170 if as$="s"theny=int(4*rnd(1))+1:goto4200
4180 if as$="p"theny=5:gosub2430:as$="":ns$=sa$:y=int(4*rnd(1))+6:return
4190 y=int(9*rnd(1))+1
4200 if i1$<>"j"oraj$="n"then4310
4210 ad$=left$(a$(z,2),1):ak$=right$(a$(z,2),1)
4220 if a$(z,3)="ei"ora$(x,3)="m"then4320
4230 ifa$(x,3)="f"andad$="b"thenab$="a":goto4300
4240 ifa$(x,3)="f"anda$(z,2)="dk"then4320
4250 ifa$(x,3)="f"andad$="d"thenab$="is":goto4300
4260 ifa$(x,3)="n"anda$(z,2)="d"thenab$="e":goto4300
4270 ifak$="k"thenab$="us":a=len(a$(z,1)):c=a-2:a1$=left$(a$(z,1),c):goto4330
4280 ifa$(x,3)="n"andad$="b"thenab$="um":goto4300
4290 goto4320
4300 ac$=a$(z,1)+ab$:ns$=a$(x,0)+q$+ac$:goto 4340
4310 ns$=a$(x,0):goto4340
4320 ns$=a$(x,0)+q$+a$(z,0):goto4340
4330 ac$=a1$+ab$:ns$=a$(x,0)+q$+ac$
4340 return
4350 print"[147][154] wahlmoeglichkeiten":z=120:x=120
4360 input " mit adjektiv (j/n)";i1$
4370 print" 1) alle deklinationen"
4380 print" 2) a-/o-/kons.dekl.(incl.mischform)"
4390 print" 3) nur masc.und fem.der a-/o-/kons.dekl"
4400 print" 4) nur a-/o-deklination"
4410 print" zahl 1-4 eingeben ":poke198,0:wait198,1:getbe$:be=val(be$)
4420 ifbe<1orbe>4then4410
4430 return
4440 a=1:b=3:c=7
4450 open a,b,c
4460 poke53280,6:print"[154][147]"
4470 print#a, " anima [154](a-deklination)"
4480 print#a, " anim [158]-a -ae -ae -am -a"
4490 print#a, " -ae -arum -is -as -is[154]"
4500 print#a, " hortus/puer[154];(o-deklination)"
4510 print#a, " hort [158]-us -i -o -um -o"
4520 print#a, " -i -orum -is -os -is[154]"
4530 print#a, " templum[154]; (o-deklination)"
4540 print#a, " templ [158]-um -i -o -um -o"
4550 print#a, " -a -orum -is -a -is[154]"
4560 print#a, " palus [154](kons.deklination)"
4570 print#a, " palud [158] -is -i -em -e"
4580 print#a, " -es -um -ibus -es -ibus[154]"
4590 print#a, " tempus [154](kons.dekl.neutrum)"
4600 print#a, " tempor [158]-is -i tempus[146] -e"
4610 print#a, " -a -um -ibus -a -ibus[154]"
4620 print#a, " arx [154](kons.dekl.mischform)"
4630 print#a, " arc [158]-is -i -em -e"
4640 print#a, " -es -ium -ibus -es -ibus[154]"
4650 print#a, " senatus [154](u-deklination)"
4660 print#a, " senat [158]-us -us -ui -um -u"
4670 print#a, " -us -uum -ibus -us -ibus[154]"
4680 print#a, " dies [154](e-deklination)"
4690 print#a, " di [158]-es -ei -ei -em -e"
4700 print#a, " -es -erum -ebus -es -ebus[154]"
4710 closea
4720 if b=4 then460
4730 input"wird ausdruck gewuenscht (j/n)";i$
4740 if i$<>"j" then460
4750 input"drucker betriebsbereit";j$
4760 if j$<>"j" then460
4770 a=7:b=4:c=0
4780 goto4450
4790 for x=0to85:if s$=a$(x,0)then4840
4800 nextx
4810 print "[154] gewuenschtes substantiv nicht im"
4820 print" datenbestand":s$="n"
4830 gosub6610
4840 if i1$<>"j"then4910
4860 for z=86to111:ifaj$=a$(z,0)then4910
4870 nextz
4880 printm$:print "[154] gewuenschtes adjektiv nicht im"
4890 print" datenbestand":aj$="n":i1$="n"
4900 gosub6610
4910 return
4920 ifmm$="m"then5030
4930 print"du hast ";p;" punkte von "
4940 print"";h;"moeglichen erreicht"
4950 ifpp=0 then 5030
4960 print"wiederhole folgende formen:"
4970 print
4980 for r=1 to 10
4990 if r$(r)=""then 5020
5000 print" ";v$(r);": ";r$(r);l1$
5010 v$(r)="":r$(r)=""
5020 nextr
5030 pp=0:r=0:e$="":input "[154] noch einmal (j/n)";e$
5040 d1$="":d2$="":d3$="":d4$="":d5$="":d6$="":d7$="":d8$="":d9$=""
5050 if e$<>"j"then460
5060 return
5070 print" bitte 'm' eingeben,wenn nur 'muendlich'"
5080 poke198,0:wait198,1:getmm$
5090 return
5100 si=54272:fl=si:fh=si+1:wm=si+4:am=si+5:hm=si+6:lm=si+24
5110 pokelm,15:pokeam,16+9:pokehm,4*16+4:pokefh,29:pokefl,69:pokewm,17
5120 fortm=1to500:next
5130 pokewm,0:pokeam,0:pokehm,0
5140 print"[154] fuer loesung bitte taste"
5150 poke198,0:wait198,1:geta$
5160 print"[145] meine loesung lautet: "
5170 ifef$="2"then5190
5180 ifef$="3"then5200
5190 print"[158] ";sa$:goto5210
5200 print"[158] ";c$;" von [158]";ns$;"[146]"
5210 return
5220 si=54272:fl=si:fh=si+1:wm=si+4:am=si+5:hm=si+6:lm=si+24:bm=29:cm=69
5230 forzm=1to3
5240 pokelm,15:pokeam,16+9:pokehm,4*16+4:pokefh,bm:pokefl,cm:pokewm,17
5250 fortm=1to500:next
5260 pokewm,0:pokeam,0:pokehm,0
5270 ifzm=2thenbm=23:cm=55
5280 ifzm=3thenbm=39:cm=22
5290 nextzm
5300 return
5310 printl1$;"[147]":input" datei ausdrucken (j/n)";j$:ifj$<>"j"then5430
5320 print" bitte warten"
5330 fori=1ton
5340 fork=ntoistep-1
5350 ifa$(k-1,0)<a$(k,0)then5370
5360 x$=a$(k-1,0):a$(k-1,0)=a$(k,0):a$(k,0)=x$
5370 nextk:nexti
5380 h=1:open7,4,0:print#7," datei (deklination)":print#7
5390 fori=0ton
5400 print#7," ";a$(i,0);:ifi/5=hthenh=h+1:print#7
5410 nexti:print#7:close7
5420 close2
5430 print" bitte taste"
5440 geta$:ifa$=""then5440
5450 goto6630
5460 printl1$:print"* bitte taste druecken *"
5470 geteq$:ifeq$=""then5470
5480 ifeq$="[147]"then460
5490 return
5500 data ancilla,ancill,a,f
5510 data fluvius,fluvi,b,m
5520 data equus,equ,b,m
5530 data dominus,domin,b,m
5540 data puer,puer,b,m
5550 data liber,libr,b,m
5560 data porta,port,a,f
5570 data servus,serv,b,m
5580 data puella,puell,a,f
5590 data pugna,pugn,a,f
5600 data cura,cur,a,f
5610 data vir,vir,b,m
5620 data deus,de,b,m
5630 data populus,popul,b,m
5640 data captivus,captiv,b,m
5650 data insidiae,insidi,ap,f
5660 data poeta,poet,a,m
5670 data causa,caus,a,f
5680 data clementia,clementi,as,f
5690 data amicus,amic,b,m
5700 data morbus,morb,b,m
5710 data orator,orator,d,m
5720 data arbor,arbor,d,f
5730 data soror,soror,d,f
5740 data mater,matr,d,f
5750 data consul,consul,d,m
5760 data terror,terror,d,m
5770 data salus,salut,ds,f
5780 data miles,milit,d,m
5790 data timor,timor,d,m
5800 data virtus,virtut,d,f
5810 data dux,duc,d,m
5820 data pax,pac,ds,f
5830 data rex,reg,d,m
5840 data lex,leg,d,f
5850 data coniunx,coniug,d,f
5860 data mos,mor,d,m
5870 data laus,laud,d,f
5880 data gens,gent,f,f
5890 data aetas,aetat,d,f
5900 data limes,limit,d,m
5910 data multitudo,multitudin,d,f
5920 data templum,templ,c,n
5930 data aurum,aur,cs,n
5940 data forum,for,c,n
5950 data castra,castr,cp,n
5960 data flumen,flumin,e,n
5970 data genus,gener,e,n
5980 data carmen,carmin,e,n
5990 data corpus,corpor,e,n
6000 data vulnus,vulner,e,n
6010 data tempus,tempor,e,n
6020 data fatum,fat,c,n
6030 data odium,odi,cs,n
6040 data periculum,pericul,c,n
6050 data bellum,bell,c,n
6060 data opus,oper,e,n
6070 data nomen,nomin,e,n
6080 data ius,iur,e,n
6090 data urbs,urb,f,f
6100 data mare,mar,fi,n
6110 data navis,nav,f,f
6120 data ars,art,f,f
6130 data finis,fin,f,m
6140 data iter,itiner,e,n
6150 data mons,mont,f,m
6160 data pars,part,f,f
6170 data civis,civ,f,m
6180 data animal,animal,fi,n
6190 data usus,us,g,m
6200 data exercitus,exercit,g,m
6210 data aditus,adit,gs,m
6220 data senatus,senat,gs,m
6230 data manus,man,g,f
6240 data turris,turr,fi,f
6250 data portus,port,g,m
6260 data magistratus,magistrat,g,m
6270 data aspectus,aspect,gs,m
6280 data res,r,h,f
6290 data fides,fid,hs,f
6300 data spes,sp,hs,f
6310 data dies,di,h,m
6320 data planities,planiti,h,f
6330 data acies,aci,h,f
6340 data pernicies,pernici,hs,f
6350 data bonus,bon,b,dr
6360 data pulcher,pulchr,b,dr
6370 data malus,mal,b,dr
6380 data saevus,saev,b,dr
6390 data liber,liber,b,dr
6400 data fidus,fid,b,dr
6410 data romanus,roman,b,dr
6420 data firmus,firm,b,dr
6430 data armatus,armat,b,dr
6440 data plenus,plen,b,dr
6450 data meus,me,b,dr
6460 data noster,nostr,b,dr
6470 data vester,vestr,b,dr
6480 data cautus,caut,b,dr
6490 data miser,miser,b,dr
6500 data felix,felic,d,ei
6510 data audax,audac,d,ei
6520 data sapiens,sapient,d,ei
6530 data constans,constant,d,ei
6540 data fortis,fort,d,zw
6550 data gravis,grav,d,zw
6560 data levis,lev,d,zw
6570 data mollis,moll,d,zw
6580 data celer,celer,d,dr
6590 data acer,acr,d,dr
6600 data ferox,feroc,d,ei
6610 print" *** bitte taste ***"
6620 poke198,0:wait198,1:geta$:return
6630 end